home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / te2_130t.zip / TE2INST.003 / CIS.scr < prev    next >
Text File  |  1994-03-28  |  1KB  |  48 lines
  1. ;; -------------------------------------------------------------------------
  2. ;;
  3. ;; CIS.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
  4. ;;            Author: Brady Flowers, 04/01/93
  5. ;;
  6. ;; Login Script for CompuServe.  Expects that your CIS Password will be
  7. ;; contained in the CIS dialing directory entry.
  8. ;;
  9. ;; -------------------------------------------------------------------------
  10.  
  11. string  DialerEntry = "CIS"        <== Change this for your setup
  12. string  myID        = "99999,999"  <== Change this to your CIS ID
  13. integer i
  14. integer j
  15.  
  16. program
  17.  
  18.   if !connected
  19.     dial(DialerEntry)
  20.   endif
  21.  
  22.   if connected
  23.     setxonxoff(3)
  24.     sleep(200)
  25.     do
  26.       transmit("^M")
  27.       j = muxwait("/Host Name:/User ID:/", 5)
  28.       if j == 1
  29.         transmit("CPS")
  30.         continue
  31.       elseif j == 2
  32.         transmit("%s^M", myID)
  33.         waitfor("Password:", 30)
  34.         transmit("%s^M", password(""))
  35.         break
  36.       else
  37.         i = i + 1
  38.         sleep(500)
  39.       endif
  40.     loop while i < 3
  41.     if i == 3
  42.       hangup(ifcarrier)
  43.     endif
  44.   endif
  45.  
  46.  
  47.  
  48.